home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / gfx / misc / gnuplot-src.lha / gnuplot-3.7.1src / gnuplot-3.7.1.lha / gnuplot-3.7.1 / term / post.trm < prev    next >
Encoding:
Text File  |  1999-08-19  |  60.6 KB  |  1,830 lines
  1. /*
  2.  * $Id: pand try tr)
  3.             b.1 1999/08/19 14:16:33 lhecking Exp $
  4.  */
  5.  
  6. /* GNUPLOT - post.trm */
  7.  
  8. /*[
  9.  * Copyright 1990 - 1993, 1998
  10.  *
  11.  * Permission to use, copy, and distribute this software and its
  12.  * documentation for any purpose with or without fee is hereby granted,
  13.  * provided that the above copyright notice appear in all copies and
  14.  * that both that copyright notice and this permission notice appear
  15.  * in supporting documentation.
  16.  *
  17.  * Permission to modify the software is granted, but not the right to
  18.  * distribute the complete modified source code.  Modifications are to
  19.  * be distributed as patches to the released version.  Permission to
  20.  * distribute binaries produced by compiling modified sources is granted,
  21.  * provided you
  22.  *   1. distribute the corresponding source modifications from the
  23.  *    released version in the form of a patch file along with the binaries,
  24.  *   2. add special version identification to distinguish your version
  25.  *    in addition to the base release version number,
  26.  *   3. provide your name and address as the primary contact for the
  27.  *    support of your modified version, and
  28.  *   4. retain our contact information in regard to use of the base
  29.  *    software.
  30.  * Permission to distribute the released version of the source code along
  31.  * with corresponding source modifications in the form of a patch file is
  32.  * granted with same provisions 2 through 4 for binary distributions.
  33.  *
  34.  * This software is provided "as is" without express or implied warranty
  35.  * to the extent permitted by applicable law.
  36. ]*/
  37.  
  38. /*
  39.  * This terminal driver supports:
  40.  *     postscript
  41.  *
  42.  * AUTHORS
  43.  *  Russell Lang
  44.  *
  45.  * modified 10/5/95 by drd - put in support for other postscript drivers
  46.  * (enhpost, pslatex, ...) so they dont have to work quite so hard
  47.  * 
  48.  * send your comments or suggestions to (info-gnuplot@dartmouth.edu).
  49.  *
  50.  * The 'postscript' driver produces landscape output 10" wide and 7" high.  
  51.  * To change font to Times-Roman and font size to 20pts use 
  52.  * 'set term postscript "Times-Roman" 20'.
  53.  * To get a smaller (5" x 3.5") eps output use 'set term post eps'
  54.  * and make only one plot per file.  Font size for eps will be half
  55.  * the specified size.
  56.  *
  57.  * Erik Luijten 30/5/97: added %%CreationDate, made %%DocumentFonts conform
  58.  *                       to DSC, added version no. and patchl. to %%Creator
  59.  */
  60.  
  61. #include "driver.h"
  62.  
  63. #ifdef TERM_REGISTER
  64. register_term(post)
  65. #endif
  66.  
  67. #ifdef TERM_PROTO
  68. TERM_PUBLIC void PS_options __PROTO((void));
  69. TERM_PUBLIC void PS_common_init __PROTO((int encap, int portrait, int uses_fonts, unsigned int xoff, unsigned int yoff, unsigned int bb_xmin, unsigned int bb_ymin, unsigned int bb_xmax, unsigned int bb_ymax, char **dict));
  70. TERM_PUBLIC void PS_init __PROTO((void));
  71. TERM_PUBLIC void PS_graphics __PROTO((void));
  72. TERM_PUBLIC void PS_text __PROTO((void));
  73. TERM_PUBLIC void PS_reset __PROTO((void));
  74. TERM_PUBLIC void PS_linetype __PROTO((int linetype));
  75. TERM_PUBLIC void PS_move __PROTO((unsigned int x, unsigned int y));
  76. TERM_PUBLIC void PS_vector __PROTO((unsigned int x, unsigned int y));
  77. TERM_PUBLIC void PS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
  78. TERM_PUBLIC void ENHPS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
  79. TERM_PUBLIC int PS_text_angle __PROTO((int ang));
  80. TERM_PUBLIC int PS_justify_text __PROTO((enum JUSTIFY mode));
  81. TERM_PUBLIC void PS_point __PROTO((unsigned int x, unsigned int y, int number));
  82. TERM_PUBLIC int PS_set_font __PROTO((char * font));
  83. TERM_PUBLIC int ENHPS_set_font __PROTO((char * font));
  84. TERM_PUBLIC void PS_fillbox __PROTO((int style, unsigned int x1, unsigned int y1, unsigned int width, unsigned int height));
  85. TERM_PUBLIC void PS_linewidth __PROTO((double linewidth)); /* JFi [linewidth] */
  86. TERM_PUBLIC void PS_pointsize __PROTO((double ptsize)); /* JFi [pointsize] */
  87.  
  88. #define PS_POINT_TYPES 8
  89. #define PS_XOFF    50    /* page offset in pts */
  90. #define PS_YOFF    50
  91. #define PS_XMAX 7200 /* assumes landscape */
  92. #define PS_YMAX 5040
  93. #define PS_XLAST (PS_XMAX - 1)
  94. #define PS_YLAST (PS_YMAX - 1)
  95. #define PS_VTIC (PS_YMAX/80)
  96. #define PS_HTIC (PS_YMAX/80)
  97. #define PS_SC (10)                /* scale is 1pt = 10 units */
  98. #define    PS_LW (0.5*PS_SC)        /* linewidth = 0.5 pts */
  99. #define PS_VCHAR (14*PS_SC)        /* default is 14 point characters */
  100. #define PS_HCHAR (14*PS_SC*6/10)
  101.  
  102. #endif
  103.  
  104.  
  105. #ifndef TERM_PROTO_ONLY
  106.  
  107. #ifdef TERM_BODY
  108. /* PostScript driver by Russell Lang, rjl@monu1.cc.monash.edu.au */
  109.  
  110. /* From version.c */
  111. extern char version[];
  112. extern char patchlevel[];
  113.  
  114. #define PS_FLUSH_PATH \
  115.     if (ps_path_count) { fprintf(gpoutfile, "stroke "); ps_path_count = 0; }
  116.  
  117. static char *PS_RememberFont __PROTO((char *fname, int reencode));
  118. static void ENHPS_put_text __PROTO((unsigned int x, unsigned int y, char *str));
  119. static char *ENHPS_recurse __PROTO((char *p, TBOOLEAN brace, char *fontname, double fontsize, double base, TBOOLEAN widthflag, TBOOLEAN showflag));
  120. static char ps_font[MAX_ID_LEN+1] = "Helvetica" ; /* name of font */
  121. static int ps_fontsize = 14;                     /* size of font in pts */
  122.  
  123. /* for enhanced mode, we keep a separate font name and size, which
  124.  * is restored to the default value on font of ""
  125.  */
  126. static char ps_enh_font[MAX_ID_LEN+1];
  127. static int  ps_enh_fontsize;
  128.  
  129. static TBOOLEAN ps_portrait = FALSE;                 /* vertical page */
  130. static TBOOLEAN ps_color = FALSE;
  131. static TBOOLEAN ps_solid = FALSE;           /*  use solid lines */
  132. static TBOOLEAN ps_eps = FALSE;    /* Is this for an eps file? */
  133.             /* Added by Robert Davis <davis@ecn.purdue.edu> */
  134. static int ps_page=0;            /* page count */
  135. static int ps_path_count=0;     /* count of lines in path */
  136. static int ps_ang=0;            /* text angle */
  137. static enum JUSTIFY ps_justify=LEFT;    /* text is flush left */
  138.  
  139. /* added by Matt Heffron <heffron@falstaff.css.beckman.com> */
  140. static TBOOLEAN ps_duplex_state = FALSE;
  141. static TBOOLEAN ps_duplex_option = FALSE;
  142.  
  143. static char GPFAR * GPFAR PS_header[] = {
  144. "/M {moveto} bind def\n",
  145. "/L {lineto} bind def\n",
  146. "/R {rmoveto} bind def\n",
  147. "/V {rlineto} bind def\n",
  148. "/vpt2 vpt 2 mul def\n",
  149. "/hpt2 hpt 2 mul def\n",
  150. /* flush left show */
  151. "/Lshow { currentpoint stroke M\n",
  152. "  0 vshift R show } def\n", 
  153. /* flush right show */
  154. "/Rshow { currentpoint stroke M\n",
  155. "  dup stringwidth pop neg vshift R show } def\n", 
  156. /* centred show */
  157. "/Cshow { currentpoint stroke M\n",
  158. "  dup stringwidth pop -2 div vshift R show } def\n", 
  159. /* set pointsize */
  160. "/UP { dup vpt_ mul /vpt exch def hpt_ mul /hpt exch def\n",
  161. "  /hpt2 hpt 2 mul def /vpt2 vpt 2 mul def } def\n",
  162. /* Dash or Color Line */
  163. "/DL { Color {setrgbcolor Solid {pop []} if 0 setdash }\n",
  164. " {pop pop pop Solid {pop []} if 0 setdash} ifelse } def\n",
  165. /* Border Lines */
  166. "/BL { stroke userlinewidth 2 mul setlinewidth } def\n",
  167. /* Axes Lines */
  168. "/AL { stroke userlinewidth 2 div setlinewidth } def\n",
  169. /* set user defined linewidth */
  170. "/UL { dup gnulinewidth mul /userlinewidth exch def\n",
  171. "      10 mul /udl exch def } def\n",
  172. /* Plot Lines */
  173. "/PL { stroke userlinewidth setlinewidth } def\n",
  174. /* Line Types */
  175. "/LTb { BL [] 0 0 0 DL } def\n", /* border */
  176. "/LTa { AL [1 udl mul 2 udl mul] 0 setdash 0 0 0 setrgbcolor } def\n", /* axes */
  177. "/LT0 { PL [] 1 0 0 DL } def\n",
  178. "/LT1 { PL [4 dl 2 dl] 0 1 0 DL } def\n",
  179. "/LT2 { PL [2 dl 3 dl] 0 0 1 DL } def\n",
  180. "/LT3 { PL [1 dl 1.5 dl] 1 0 1 DL } def\n",
  181. "/LT4 { PL [5 dl 2 dl 1 dl 2 dl] 0 1 1 DL } def\n",
  182. "/LT5 { PL [4 dl 3 dl 1 dl 3 dl] 1 1 0 DL } def\n",
  183. "/LT6 { PL [2 dl 2 dl 2 dl 4 dl] 0 0 0 DL } def\n",
  184. "/LT7 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 1 0.3 0 DL } def\n",
  185. "/LT8 { PL [2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 2 dl 4 dl] 0.5 0.5 0.5 DL } def\n",
  186. /* Point (Round) */    /* Matt Heffron make it round */
  187. "/Pnt { stroke [] 0 setdash\n",
  188. "   gsave 1 setlinecap M 0 0 V stroke grestore } def\n",
  189.  
  190. /* Diamond */
  191. "/Dia { stroke [] 0 setdash 2 copy vpt add M\n",
  192. "  hpt neg vpt neg V hpt vpt neg V\n",
  193. "  hpt vpt V hpt neg vpt V closepath stroke\n",
  194. "  Pnt } def\n",
  195.  
  196. /* Plus */
  197. "/Pls { stroke [] 0 setdash vpt sub M 0 vpt2 V\n",
  198. "  currentpoint stroke M\n",
  199. "  hpt neg vpt neg R hpt2 0 V stroke\n",
  200. "  } def\n",
  201.  
  202. /* Box */
  203. "/Box { stroke [] 0 setdash 2 copy exch hpt sub exch vpt add M\n",
  204. "  0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
  205. "  hpt2 neg 0 V closepath stroke\n",
  206. "  Pnt } def\n",
  207.  
  208. /* Cross (X) */
  209. "/Crs { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
  210. "  hpt2 vpt2 neg V currentpoint stroke M\n",
  211. "  hpt2 neg 0 R hpt2 vpt2 V stroke } def\n",
  212.  
  213. /* Triangle Up*/
  214. "/TriU { stroke [] 0 setdash 2 copy vpt 1.12 mul add M\n",
  215. "  hpt neg vpt -1.62 mul V\n",
  216. "  hpt 2 mul 0 V\n",
  217. "  hpt neg vpt 1.62 mul V closepath stroke\n",
  218. "  Pnt  } def\n",
  219.  
  220. /* Star */
  221. "/Star { 2 copy Pls Crs } def\n",
  222.  
  223. /* div added filed box */
  224. /* Filled Box */
  225. "/BoxF { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
  226. "  0 vpt2 neg V  hpt2 0 V  0 vpt2 V\n",
  227. "  hpt2 neg 0 V  closepath fill } def\n",
  228.  
  229. /* div added filled triangle */
  230. /* Triangle Up, Filled */
  231. "/TriUF { stroke [] 0 setdash vpt 1.12 mul add M\n",
  232. "  hpt neg vpt -1.62 mul V\n",
  233. "  hpt 2 mul 0 V\n",
  234. "  hpt neg vpt 1.62 mul V closepath fill } def\n",
  235.  
  236. /* Matt Heffron: added a few more types */
  237. /* Triangle Down */
  238. "/TriD { stroke [] 0 setdash 2 copy vpt 1.12 mul sub M\n", 
  239. "  hpt neg vpt 1.62 mul V\n",
  240. "  hpt 2 mul 0 V\n",
  241. "  hpt neg vpt -1.62 mul V closepath stroke\n",
  242. "  Pnt  } def\n",
  243.  
  244. /* Triangle Down, Filled*/
  245. "/TriDF { stroke [] 0 setdash vpt 1.12 mul sub M\n",
  246. "  hpt neg vpt 1.62 mul V\n",
  247. "  hpt 2 mul 0 V\n",
  248. "  hpt neg vpt -1.62 mul V closepath fill} def\n",
  249.  
  250. /* Diamond, Filled */
  251. "/DiaF { stroke [] 0 setdash vpt add M\n",
  252. "  hpt neg vpt neg V hpt vpt neg V\n",
  253. "  hpt vpt V hpt neg vpt V closepath fill } def\n",
  254.  
  255. /* Pentagon */
  256. "/Pent { stroke [] 0 setdash 2 copy gsave\n",
  257. "  translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
  258. "  closepath stroke grestore Pnt } def\n",
  259.  
  260. /* Pentagon, Filled */
  261. "/PentF { stroke [] 0 setdash gsave\n",
  262. "  translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
  263. "  closepath fill grestore } def\n",
  264.  
  265. /* Circle */
  266. "/Circle { stroke [] 0 setdash 2 copy\n",
  267. "  hpt 0 360 arc stroke Pnt } def\n",
  268.  
  269. /* Circle,Filled */
  270. "/CircleF { stroke [] 0 setdash hpt 0 360 arc fill } def\n",
  271. /* 16 differently filled circles */
  272. "/C0 { BL [] 0 setdash 2 copy moveto vpt 90 450  arc } bind def\n",
  273. "/C1 { BL [] 0 setdash 2 copy        moveto\n",
  274. "       2 copy  vpt 0 90 arc closepath fill\n",
  275. "               vpt 0 360 arc closepath } bind def\n",
  276. "/C2 { BL [] 0 setdash 2 copy moveto\n",
  277. "       2 copy  vpt 90 180 arc closepath fill\n",
  278. "               vpt 0 360 arc closepath } bind def\n",
  279. "/C3 { BL [] 0 setdash 2 copy moveto\n",
  280. "       2 copy  vpt 0 180 arc closepath fill\n",
  281. "               vpt 0 360 arc closepath } bind def\n",
  282. "/C4 { BL [] 0 setdash 2 copy moveto\n",
  283. "       2 copy  vpt 180 270 arc closepath fill\n",
  284. "               vpt 0 360 arc closepath } bind def\n",
  285. "/C5 { BL [] 0 setdash 2 copy moveto\n",
  286. "       2 copy  vpt 0 90 arc\n",
  287. "       2 copy moveto\n",
  288. "       2 copy  vpt 180 270 arc closepath fill\n",
  289. "               vpt 0 360 arc } bind def\n",
  290. "/C6 { BL [] 0 setdash 2 copy moveto\n",
  291. "      2 copy  vpt 90 270 arc closepath fill\n",
  292. "              vpt 0 360 arc closepath } bind def\n",
  293. "/C7 { BL [] 0 setdash 2 copy moveto\n",
  294. "      2 copy  vpt 0 270 arc closepath fill\n",
  295. "              vpt 0 360 arc closepath } bind def\n",
  296. "/C8 { BL [] 0 setdash 2 copy moveto\n",
  297. "      2 copy vpt 270 360 arc closepath fill\n",
  298. "              vpt 0 360 arc closepath } bind def\n",
  299. "/C9 { BL [] 0 setdash 2 copy moveto\n",
  300. "      2 copy  vpt 270 450 arc closepath fill\n",
  301. "              vpt 0 360 arc closepath } bind def\n",
  302. "/C10 { BL [] 0 setdash 2 copy 2 copy moveto vpt 270 360 arc closepath fill\n",
  303. "       2 copy moveto\n",
  304. "       2 copy vpt 90 180 arc closepath fill\n",
  305. "               vpt 0 360 arc closepath } bind def\n",
  306. "/C11 { BL [] 0 setdash 2 copy moveto\n",
  307. "       2 copy  vpt 0 180 arc closepath fill\n",
  308. "       2 copy moveto\n",
  309. "       2 copy  vpt 270 360 arc closepath fill\n",
  310. "               vpt 0 360 arc closepath } bind def\n",
  311. "/C12 { BL [] 0 setdash 2 copy moveto\n",
  312. "       2 copy  vpt 180 360 arc closepath fill\n",
  313. "               vpt 0 360 arc closepath } bind def\n",
  314. "/C13 { BL [] 0 setdash  2 copy moveto\n",
  315. "       2 copy  vpt 0 90 arc closepath fill\n",
  316. "       2 copy moveto\n",
  317. "       2 copy  vpt 180 360 arc closepath fill\n",
  318. "               vpt 0 360 arc closepath } bind def\n",
  319. "/C14 { BL [] 0 setdash 2 copy moveto\n",
  320. "       2 copy  vpt 90 360 arc closepath fill\n",
  321. "               vpt 0 360 arc } bind def\n",
  322. "/C15 { BL [] 0 setdash 2 copy vpt 0 360 arc closepath fill\n",
  323. "               vpt 0 360 arc closepath } bind def\n",
  324.  
  325. /* Auxiliary definitions for rectangles */
  326.  
  327. "/Rec   { newpath 4 2 roll moveto 1 index 0 rlineto 0 exch rlineto\n",
  328. "       neg 0 rlineto closepath } bind def\n",
  329. "/Square { dup Rec } bind def\n",
  330. "/Bsquare { vpt sub exch vpt sub exch vpt2 Square } bind def\n",
  331.  
  332. /* 16 differently filled squares */
  333.  
  334. "/S0 { BL [] 0 setdash 2 copy moveto 0 vpt rlineto BL Bsquare } bind def\n",
  335. "/S1 { BL [] 0 setdash 2 copy vpt Square fill Bsquare } bind def\n",
  336. "/S2 { BL [] 0 setdash 2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
  337. "/S3 { BL [] 0 setdash 2 copy exch vpt sub exch vpt2 vpt Rec fill Bsquare } bind def\n",
  338. "/S4 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
  339. "/S5 { BL [] 0 setdash 2 copy 2 copy vpt Square fill\n",
  340. "       exch vpt sub exch vpt sub vpt Square fill Bsquare } bind def\n",
  341. "/S6 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
  342. "/S7 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt vpt2 Rec fill\n",
  343. "       2 copy vpt Square fill\n",
  344. "       Bsquare } bind def\n",
  345. "/S8 { BL [] 0 setdash 2 copy vpt sub vpt Square fill Bsquare } bind def\n",
  346. "/S9 { BL [] 0 setdash 2 copy vpt sub vpt vpt2 Rec fill Bsquare } bind def\n",
  347. "/S10 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt Square fill\n",
  348. "       Bsquare } bind def\n",
  349. "/S11 { BL [] 0 setdash 2 copy vpt sub vpt Square fill 2 copy exch vpt sub exch vpt2 vpt Rec fill\n",
  350. "       Bsquare } bind def\n",
  351. "/S12 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill Bsquare } bind def\n",
  352. "/S13 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
  353. "       2 copy vpt Square fill Bsquare } bind def\n",
  354. "/S14 { BL [] 0 setdash 2 copy exch vpt sub exch vpt sub vpt2 vpt Rec fill\n",
  355. "       2 copy exch vpt sub exch vpt Square fill Bsquare } bind def\n",
  356. "/S15 { BL [] 0 setdash 2 copy Bsquare fill Bsquare } bind def\n",
  357.  
  358. /* 16 different diamonds (actually just rotated squares) */
  359.  
  360. "/D0 { gsave translate 45 rotate 0 0 S0 stroke grestore } bind def\n",
  361. "/D1 { gsave translate 45 rotate 0 0 S1 stroke grestore } bind def\n",
  362. "/D2 { gsave translate 45 rotate 0 0 S2 stroke grestore } bind def\n",
  363. "/D3 { gsave translate 45 rotate 0 0 S3 stroke grestore } bind def\n",
  364. "/D4 { gsave translate 45 rotate 0 0 S4 stroke grestore } bind def\n",
  365. "/D5 { gsave translate 45 rotate 0 0 S5 stroke grestore } bind def\n",
  366. "/D6 { gsave translate 45 rotate 0 0 S6 stroke grestore } bind def\n",
  367. "/D7 { gsave translate 45 rotate 0 0 S7 stroke grestore } bind def\n",
  368. "/D8 { gsave translate 45 rotate 0 0 S8 stroke grestore } bind def\n",
  369. "/D9 { gsave translate 45 rotate 0 0 S9 stroke grestore } bind def\n",
  370. "/D10 { gsave translate 45 rotate 0 0 S10 stroke grestore } bind def\n",
  371. "/D11 { gsave translate 45 rotate 0 0 S11 stroke grestore } bind def\n",
  372. "/D12 { gsave translate 45 rotate 0 0 S12 stroke grestore } bind def\n",
  373. "/D13 { gsave translate 45 rotate 0 0 S13 stroke grestore } bind def\n",
  374. "/D14 { gsave translate 45 rotate 0 0 S14 stroke grestore } bind def\n",
  375. "/D15 { gsave translate 45 rotate 0 0 S15 stroke grestore } bind def\n",
  376.  
  377. /* closed figures w/o the point in the middle (added by Dick Crawford) */
  378.  
  379. /* Diamond */
  380. "/DiaE { stroke [] 0 setdash vpt add M\n",
  381. "  hpt neg vpt neg V hpt vpt neg V\n",
  382. "  hpt vpt V hpt neg vpt V closepath stroke } def\n",
  383.  
  384. /* Box */
  385. "/BoxE { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
  386. "  0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
  387. "  hpt2 neg 0 V closepath stroke } def\n",
  388.  
  389. /* Triangle Up*/
  390. "/TriUE { stroke [] 0 setdash vpt 1.12 mul add M\n",
  391. "  hpt neg vpt -1.62 mul V\n",
  392. "  hpt 2 mul 0 V\n",
  393. "  hpt neg vpt 1.62 mul V closepath stroke } def\n",
  394.  
  395. /* Triangle Down */
  396. "/TriDE { stroke [] 0 setdash vpt 1.12 mul sub M\n", 
  397. "  hpt neg vpt 1.62 mul V\n",
  398. "  hpt 2 mul 0 V\n",
  399. "  hpt neg vpt -1.62 mul V closepath stroke } def\n",
  400.  
  401. /* Pentagon */
  402. "/PentE { stroke [] 0 setdash gsave\n",
  403. "  translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
  404. "  closepath stroke grestore } def\n",
  405.  
  406. /* Circle */
  407. "/CircE { stroke [] 0 setdash \n",
  408. "  hpt 0 360 arc stroke } def\n",
  409.  
  410. /* opaque closed figures w/o the point in the middle (added by Dick Crawford) */
  411.  
  412. "/Opaque { gsave closepath 1 setgray fill grestore 0 setgray closepath } def\n",
  413.  
  414. /* Diamond */
  415. "/DiaW { stroke [] 0 setdash vpt add M\n",
  416. "  hpt neg vpt neg V hpt vpt neg V\n",
  417. "  hpt vpt V hpt neg vpt V Opaque stroke } def\n",
  418.  
  419. /* Box */
  420. "/BoxW { stroke [] 0 setdash exch hpt sub exch vpt add M\n",
  421. "  0 vpt2 neg V hpt2 0 V 0 vpt2 V\n",
  422. "  hpt2 neg 0 V Opaque stroke } def\n",
  423.  
  424. /* Triangle Up*/
  425. "/TriUW { stroke [] 0 setdash vpt 1.12 mul add M\n",
  426. "  hpt neg vpt -1.62 mul V\n",
  427. "  hpt 2 mul 0 V\n",
  428. "  hpt neg vpt 1.62 mul V Opaque stroke } def\n",
  429.  
  430. /* Triangle Down */
  431. "/TriDW { stroke [] 0 setdash vpt 1.12 mul sub M\n", 
  432. "  hpt neg vpt 1.62 mul V\n",
  433. "  hpt 2 mul 0 V\n",
  434. "  hpt neg vpt -1.62 mul V Opaque stroke } def\n",
  435.  
  436. /* Pentagon */
  437. "/PentW { stroke [] 0 setdash gsave\n",
  438. "  translate 0 hpt M 4 {72 rotate 0 hpt L} repeat\n",
  439. "  Opaque stroke grestore } def\n",
  440.  
  441. /* Circle */
  442. "/CircW { stroke [] 0 setdash \n",
  443. "  hpt 0 360 arc Opaque stroke } def\n",
  444.  
  445. /* filled box : usage   x1 y1 x2 y2 BoxFill */
  446. "/BoxFill { gsave Rec 1 setgray fill grestore } def\n",
  447.  
  448. NULL
  449. };
  450.  
  451. static char GPFAR * GPFAR ENHPS_header[] = {
  452. /* For MFshow and MFwidth the tos is an array with the string and font info:  */
  453. /*    [<fontname (a string)> <fontsize> <vertical offset> <width significant?> <printed?> <text string>]  */
  454.  
  455. "/MFshow {{dup dup 0 get findfont exch 1 get scalefont setfont\n",
  456. "     [ currentpoint ] exch dup 2 get 0 exch rmoveto dup dup 5 get exch 4 get\n",
  457. "     {show} {stringwidth pop 0 rmoveto}ifelse dup 3 get\n",
  458. "     {2 get neg 0 exch rmoveto pop} {pop aload pop moveto}ifelse} forall} bind def\n",
  459. "/MFwidth {0 exch {dup 3 get{dup dup 0 get findfont exch 1 get scalefont setfont\n",
  460. "      5 get stringwidth pop add}\n",
  461. "    {pop} ifelse} forall} bind def\n",
  462.  
  463. /* flush left show */
  464. "/MLshow { currentpoint stroke M\n",
  465. "  0 exch R MFshow } bind def\n", 
  466.  
  467. /* flush right show */
  468. "/MRshow { currentpoint stroke M\n",
  469. "  exch dup MFwidth neg 3 -1 roll R MFshow } def\n", 
  470.  
  471. /* centred show */
  472. "/MCshow { currentpoint stroke M\n",
  473. "  exch dup MFwidth -2 div 3 -1 roll R MFshow } def\n", 
  474. NULL
  475. };
  476.  
  477. /* added to enhpost by Matt Heffron <heffron@falstaff.css.beckman.com> */
  478. /* moved to post.trm by drd */
  479.  
  480. static struct PS_FontName {
  481.     char *name;
  482.     struct PS_FontName *next;
  483. } *PS_DocFonts = NULL;
  484.  
  485. /* given a font, look in store to see if it is there already
  486.  * if so, return NULL. If not, reencode it if allowed to, otherwise
  487.  * return an appropriate re-encode string
  488.  */
  489.  
  490. TERM_PUBLIC char *PS_RememberFont(fname, can_reencode)
  491. char *fname;
  492. int can_reencode;
  493. {
  494.     struct PS_FontName *fnp;
  495.     char *recode = NULL;
  496.  
  497.    for (fnp=PS_DocFonts; fnp ; fnp = fnp->next)
  498.         if (strcmp(fnp->name, fname)==0)
  499.             return NULL;
  500.  
  501.     /* we did not find the name */
  502.    
  503.    fnp = (struct PS_FontName *)gp_alloc(sizeof(struct PS_FontName), "PostScript Font record");
  504.    fnp->name = gp_alloc(1+strlen(fname), "PostScript Font name");
  505.    strcpy(fnp->name, fname);
  506.    fnp->next = PS_DocFonts;
  507.    PS_DocFonts = fnp;
  508.  
  509.     switch(encoding)
  510.     {
  511.         case ENCODING_ISO_8859_1:
  512.             recode = "reencodeISO def\n";
  513.             break;
  514.         case ENCODING_CP_437:
  515.             recode = "reencodeCP437 def\n";
  516.             break;
  517.         case ENCODING_CP_850 : 
  518.             recode = "reencodeCP850 def\n";
  519.             break;
  520.     }
  521.  
  522.     if (can_reencode && recode)
  523.     {    fprintf(gpoutfile,"/%s %s",fname, recode);
  524.         return NULL;
  525.     }
  526.     else
  527.         return recode;
  528. }
  529.  
  530. static int PS_pen_x, PS_pen_y;
  531. static int PS_taken;
  532. static int PS_linetype_last;
  533. static TBOOLEAN PS_relative_ok;
  534.  
  535. TERM_PUBLIC void PS_options()
  536. {
  537.     if (!END_OF_COMMAND) {
  538.         if (almost_equals(c_token,"p$ortrait")) {
  539.             ps_portrait=TRUE;
  540.              ps_eps=FALSE;
  541.             c_token++;
  542.         }
  543.         else if (almost_equals(c_token,"l$andscape")) {
  544.             ps_portrait=FALSE;
  545.              ps_eps=FALSE;
  546.             c_token++;
  547.         }
  548.          else if (almost_equals(c_token,"ep$sf")) {
  549.              ps_portrait=TRUE;
  550.              ps_eps = TRUE;
  551.              c_token++;
  552.          }
  553.         else if (almost_equals(c_token,"d$efault")) {
  554.             ps_portrait=FALSE;
  555.              ps_eps=FALSE;
  556.             ps_color=FALSE;
  557.             ps_solid=FALSE;
  558.             ps_duplex_option=FALSE;
  559.             strcpy(ps_font,"Helvetica");
  560.             ps_fontsize = 14;
  561.             term->v_char = (unsigned int)(ps_fontsize*PS_SC);
  562.             term->h_char = (unsigned int)(ps_fontsize*PS_SC*6/10);
  563.             term->put_text = PS_put_text;
  564.             c_token++;
  565.         }
  566.     }
  567.  
  568.     if (almost_equals(c_token, "enh$anced")) {
  569.         term->put_text = ENHPS_put_text;
  570.         term->set_font = ENHPS_set_font;
  571.         ++c_token;
  572.     } else if (almost_equals(c_token, "noenh$anced")) {
  573.         term->put_text = PS_put_text;
  574.         term->set_font = PS_set_font;
  575.         ++c_token;
  576.     }
  577.  
  578.     if (!END_OF_COMMAND) {
  579.         if (almost_equals(c_token,"m$onochrome")) {
  580.             ps_color=FALSE;
  581.             c_token++;
  582.         }
  583.         else if (almost_equals(c_token,"c$olor")
  584.              || almost_equals(c_token,"c$olour")) {
  585.             ps_color=TRUE;
  586.             c_token++;
  587.         }
  588.     }
  589.  
  590.     if (!END_OF_COMMAND) {
  591.         if (almost_equals(c_token,"so$lid")) {
  592.             ps_solid=TRUE;
  593.             c_token++;
  594.         }
  595.         else if (almost_equals(c_token,"da$shed")) {
  596.             ps_solid=FALSE;
  597.             c_token++;
  598.         }
  599.     }
  600.  
  601.     if (!END_OF_COMMAND) {
  602.         if (almost_equals(c_token,"si$mplex")) {
  603.             ps_duplex_state  = FALSE;
  604.             ps_duplex_option = TRUE;
  605.             c_token++;
  606.         }
  607.         else if (almost_equals(c_token,"du$plex")) {
  608.             ps_duplex_state  = TRUE;
  609.             ps_duplex_option = TRUE;
  610.             c_token++;
  611.         }
  612.         else if (almost_equals(c_token,"defaultp$lex")) {
  613.             ps_duplex_option = FALSE;
  614.             c_token++;
  615.         }
  616.     }
  617.  
  618.     if (!END_OF_COMMAND && isstring(c_token)) {
  619.         quote_str(ps_font,c_token, MAX_ID_LEN);
  620.         c_token++;
  621.     }
  622.  
  623.     if (!END_OF_COMMAND) {
  624.         /* We have font size specified */
  625.         struct value a;
  626.         ps_fontsize = (int)real(const_express(&a));
  627.         term->v_char = (unsigned int)(ps_fontsize*PS_SC);
  628.         term->h_char = (unsigned int)(ps_fontsize*PS_SC*6/10);
  629.     }
  630.  
  631.     sprintf(default_font,"%s,%d",ps_font,ps_fontsize);
  632.     /* default_font holds the font and size set at 'set term' */
  633.     /* Entry font added by DJL */
  634.     sprintf(term_options,"%s %senhanced %s %s %s \"%s\" %d",
  635.         ps_eps ? "eps" : (ps_portrait ? "portrait" : "landscape"),
  636.       term->put_text == ENHPS_put_text ? "" : "no",
  637.         ps_color ? "color" : "monochrome",
  638.         ps_solid ? "solid" : "dashed",
  639.         ps_duplex_option ? (ps_duplex_state ? "duplex" : "simplex")
  640.                                     : "defaultplex",
  641.         ps_font,ps_fontsize);
  642. }
  643.  
  644. /* store settings passed to common_init() for use in PS_graphics()
  645.  * ps_eps, ps_portrait, etc are reserved for storing the term options
  646.  */
  647. static int ps_common_encap;
  648. static int ps_common_portrait;
  649. static int ps_common_uses_fonts;
  650. static unsigned int ps_common_xoff, ps_common_yoff;
  651.  
  652.  
  653. TERM_PUBLIC void PS_common_init(encap, portrait, uses_fonts, xoff, yoff, bb_xmin, bb_ymin, bb_xmax, bb_ymax, dict)
  654. int encap; /* encapsulated or not - 1 for pslatex */
  655. int portrait; /* 1 for pslatex */
  656. int uses_fonts; /* 0 for ps(la)tex */
  657. unsigned int xoff, yoff; /* how much to translate by */
  658. unsigned int bb_xmin, bb_ymin, bb_xmax, bb_ymax; /* bounding box */
  659. char **dict; /* extra entries for the dictionary */
  660. {
  661. static char GPFAR psi1[] = "%%%%Creator: gnuplot %s patchlevel %s\n\
  662. %%%%CreationDate: %s\
  663. %%%%DocumentFonts: %s\n";
  664. static char GPFAR psi2[] = "%%%%EndComments\n\
  665. /gnudict 256 dict def\ngnudict begin\n\
  666. /Color %s def\n\
  667. /Solid %s def\n\
  668. /gnulinewidth %.3f def\n\
  669. /userlinewidth gnulinewidth def\n\
  670. /vshift %d def\n\
  671. /dl {%d mul} def\n\
  672. /hpt_ %.1f def\n\
  673. /vpt_ %.1f def\n\
  674. /hpt hpt_ def\n\
  675. /vpt vpt_ def\n";
  676. static char GPFAR * GPFAR PS_iso_8859_1_encoding[] = {
  677. "/reencodeISO {\n",
  678. "dup dup findfont dup length dict begin\n",
  679. "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
  680. "currentdict /CharStrings known {\n",
  681. "\tCharStrings /Idieresis known {\n",
  682. "\t\t/Encoding ISOLatin1Encoding def } if\n} if\n",
  683. "currentdict end definefont\n",
  684. "} def\n",
  685. "/ISOLatin1Encoding [\n",
  686. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  687. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  688. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  689. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  690. "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
  691. "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
  692. "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
  693. "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
  694. "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
  695. "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
  696. "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde\n",
  697. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  698. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  699. "/.notdef/dotlessi/grave/acute/circumflex/tilde/macron/breve\n",
  700. "/dotaccent/dieresis/.notdef/ring/cedilla/.notdef/hungarumlaut\n",
  701. "/ogonek/caron/space/exclamdown/cent/sterling/currency/yen/brokenbar\n",
  702. "/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot\n",
  703. "/hyphen/registered/macron/degree/plusminus/twosuperior/threesuperior\n",
  704. "/acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine\n",
  705. "/guillemotright/onequarter/onehalf/threequarters/questiondown\n",
  706. "/Agrave/Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla\n",
  707. "/Egrave/Eacute/Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex\n",
  708. "/Idieresis/Eth/Ntilde/Ograve/Oacute/Ocircumflex/Otilde/Odieresis\n",
  709. "/multiply/Oslash/Ugrave/Uacute/Ucircumflex/Udieresis/Yacute\n",
  710. "/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis\n",
  711. "/aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave\n",
  712. "/iacute/icircumflex/idieresis/eth/ntilde/ograve/oacute/ocircumflex\n",
  713. "/otilde/odieresis/divide/oslash/ugrave/uacute/ucircumflex/udieresis\n",
  714. "/yacute/thorn/ydieresis\n",
  715. "] def\n",
  716. NULL };
  717.  
  718. /*   encoding for code page 437                                            */
  719. /*                                                                         */
  720. /*   version 1.0:  - Mainly letters are mapped. The following positions    */
  721. /*   (JFi)           are left blank (undefined):                           */
  722. /*                   -- first 32 positions,                                */
  723. /*                   -- frame characters,                                  */
  724. /*                   -- greek characters,                                  */
  725. /*                   -- some more special characters.                      */
  726. /*                                                                         */
  727. /*   version 1.1:  - added some more special characters                    */
  728. /*                                                                         */
  729. static char GPFAR * GPFAR PS_cp_437_encoding[] = {
  730. "/reencodeCP437 {\n",
  731. "dup dup findfont dup length dict begin\n",
  732. "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
  733. "currentdict /CharStrings known {\n",
  734. "\tCharStrings /Idieresis known {\n",
  735. "\t\t/Encoding CP437Encoding def } if\n} if\n",
  736. "currentdict end definefont\n",
  737. "} def\n",
  738. "/CP437Encoding [\n",
  739. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  740. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  741. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  742. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  743. "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
  744. "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
  745. "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
  746. "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
  747. "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
  748. "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
  749. "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef\n",
  750. "/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla\n",
  751. "/ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring\n",
  752. "/Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave\n",
  753. "/ydieresis/Odieresis/Udieresis/cent/sterling/yen/.notdef/florin\n",
  754. "/aacute/iacute/oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine\n",
  755. "/questiondown/.notdef/logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright\n",
  756. "/space/space/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  757. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  758. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  759. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  760. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  761. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  762. "/.notdef/germandbls/.notdef/.notdef/.notdef/.notdef/mu/.notdef\n",
  763. "/.notdef/.notdef/.notdef/.notdef/infinity/.notdef/.notdef/.notdef\n",
  764. "/.notdef/plusminus/greaterequal/lessequal/.notdef/.notdef/divide/.notdef\n",
  765. "/degree/bullet/periodcentered/.notdef/nsuperior/twosuperior/.notdef\n",
  766. "] def\n",
  767. NULL };
  768.  
  769. /*   encoding for code page 850                                            */
  770. /*                                                                         */
  771. /*   version 1.0:  - Mainly letters are mapped. The following positions    */
  772. /*   (JFi)           are left blank (undefined):                           */
  773. /*                   -- first 32 positions,                                */
  774. /*                   -- frame characters,                                  */
  775. /*                   -- a few special characters.                          */
  776. /*                                                                         */
  777. static char GPFAR * GPFAR PS_cp_850_encoding[] = {
  778. "/reencodeCP850 {\n",
  779. "dup dup findfont dup length dict begin\n",
  780. "{ 1 index /FID ne { def }{ pop pop } ifelse } forall\n",
  781. "currentdict /CharStrings known {\n",
  782. "\tCharStrings /Idieresis known {\n",
  783. "\t\t/Encoding CP850Encoding def } if\n} if\n",
  784. "currentdict end definefont\n",
  785. "} def\n",
  786. "/CP850Encoding [\n",
  787. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  788. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  789. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  790. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef\n",
  791. "/space/exclam/quotedbl/numbersign/dollar/percent/ampersand/quoteright\n",
  792. "/parenleft/parenright/asterisk/plus/comma/minus/period/slash\n",
  793. "/zero/one/two/three/four/five/six/seven/eight/nine/colon/semicolon\n",
  794. "/less/equal/greater/question/at/A/B/C/D/E/F/G/H/I/J/K/L/M/N\n",
  795. "/O/P/Q/R/S/T/U/V/W/X/Y/Z/bracketleft/backslash/bracketright\n",
  796. "/asciicircum/underscore/quoteleft/a/b/c/d/e/f/g/h/i/j/k/l/m\n",
  797. "/n/o/p/q/r/s/t/u/v/w/x/y/z/braceleft/bar/braceright/asciitilde/.notdef\n",
  798. "/Ccedilla/udieresis/eacute/acircumflex/adieresis/agrave/aring/ccedilla\n",
  799. "/ecircumflex/edieresis/egrave/idieresis/icircumflex/igrave/Adieresis/Aring\n",
  800. "/Eacute/ae/AE/ocircumflex/odieresis/ograve/ucircumflex/ugrave\n",
  801. "/ydieresis/Odieresis/Udieresis/oslash/sterling/Oslash/multiply/florin\n",
  802. "/aacute/iacute/oacute/uacute/ntilde/Ntilde/ordfeminine/ordmasculine\n",
  803. "/questiondown/registered/logicalnot/onehalf/onequarter/exclamdown/guillemotleft/guillemotright\n",
  804. "/space/space/.notdef/.notdef/.notdef/Aacute/Acircumflex/Agrave\n",
  805. "/.notdef/.notdef/.notdef/.notdef/.notdef/cent/yen/.notdef\n",
  806. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/atilde/Atilde\n",
  807. "/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/.notdef/currency\n",
  808. "/eth/Eth/Ecircumflex/Edieresis/Egrave/dotlessi/Iacute/Icircumflex\n",
  809. "/Idieresis/.notdef/.notdef/.notdef/.notdef/brokenbar/Igrave/.notdef\n",
  810. "/Oacute/germandbls/Ocircumflex/Ograve/otilde/Otilde/mu/thorn\n",
  811. "/Thorn/Uacute/Ucircumflex/Ugrave/yacute/Yacute/macron/acute\n",
  812. "/hyphen/plusminus/equal/threequarters/paragraph/section/divide/.notdef\n",
  813. "/degree/.notdef/periodcentered/onesuperior/threesuperior/twosuperior/.notdef\n",
  814. "] def\n",
  815. NULL };
  816.  
  817.     struct termentry *t = term;
  818.     int i;
  819.         time_t now;
  820.  
  821.     ps_common_encap = encap; /* store for later */
  822.     ps_common_portrait = portrait; /* store for later */
  823.     ps_common_uses_fonts = uses_fonts;
  824.     ps_common_xoff = xoff;
  825.     ps_common_yoff e = 0;
  826.  
  827.     if (!encap)
  828.         fprintf(gpoutfile,"%%!PS-Adobe-2.0\n");
  829.     else
  830.         fprintf(gpoutfile,"%%!PS-Adobe-2.0 EPSF-2.0\n");
  831.  
  832.     if (outstr) fprintf(gpoutfile, "%%%%Title: %s\n", outstr );             /*  JFi  */
  833.     time(&now);
  834.     fprintf(gpoutfile, psi1, version, patchlevel, asctime(localtime(&now)), uses_fonts ? "(atend)" : "");
  835.  
  836.     fprintf(gpoutfile,"%%%%BoundingBox: %d %d %d %d\n", xoff + bb_xmin, yoff + bb_ymin, xoff + bb_xmax, yoff + bb_ymax);
  837.  
  838.     fprintf(gpoutfile,"%%%%Orientation: %s\n", ps_portrait ? "Portrait" : "Landscape");
  839.  
  840.     if (!encap)
  841.         fprintf(gpoutfile,"%%%%Pages: (atend)\n");
  842.     fprintf(gpoutfile, psi2,
  843.         ps_color ? "true" : "false",
  844.         ps_solid ? "true" : "false",
  845.         PS_LW,            /* line width */
  846.          (int)(t->v_char)/(-3),    /* shift for vertical centring */
  847.         PS_SC,            /* dash length */
  848.         PS_HTIC/2.0,        /* half point width */
  849.         PS_VTIC/2.0);        /* half point height */
  850.  
  851.     if (uses_fonts && (encoding == ENCODING_ISO_8859_1)) {
  852.         for (i=0; PS_iso_8859_1_encoding[i] != NULL; i++) {
  853.             fprintf(gpoutfile,"%s",PS_iso_8859_1_encoding[i]);
  854.         }
  855.     }
  856.     if (uses_fonts && (encoding == ENCODING_CP_437)) {       /* JFi */
  857.         for (i=0; PS_cp_437_encoding[i] != NULL; i++) {
  858.             fprintf(gpoutfile,"%s",PS_cp_437_encoding[i]);
  859.         }
  860.     }
  861.     if (uses_fonts && (encoding == ENCODING_CP_850)) {       /* JFi */
  862.         for (i=0; PS_cp_850_encoding[i] != NULL; i++) {
  863.             fprintf(gpoutfile,"%s",PS_cp_850_encoding[i]);
  864.         }
  865.     }
  866. /*        Duplicate code! 
  867.           As long as only two code pages are implemented, that's not a big 
  868.           problem. Otherwise a small procedure might be beneficial.
  869. */
  870.  
  871.     for ( i=0; PS_header[i] != NULL; i++)
  872.         fprintf(gpoutfile,"%s",PS_header[i]);
  873.     if (ps_duplex_option)
  874.         fprintf(gpoutfile, "statusdict begin %s setduplexmode end\n",
  875.                 ps_duplex_state ? "true" : "false");
  876.     PS_RememberFont(ps_font, 1);
  877.  
  878.     if (dict)
  879.         while (*dict)
  880.             fputs(*(dict++), gpoutfile);    
  881.  
  882.     fprintf(gpoutfile,"end\n%%%%EndProlog\n");
  883. }
  884.  
  885. /* the init fn for the postscript driver */
  886. TERM_PUBLIC void PS_init()
  887. {
  888.     unsigned int xmin_t, ymin_t, xmax_t, ymax_t;
  889.  
  890.     if (ps_eps)
  891.     {
  892.         term->xmax = PS_XMAX;
  893.         term->ymax = PS_YMAX;
  894.         xmin_t = PS_XMAX * xoffset / (2*PS_SC);
  895.         xmax_t = PS_XMAX * (xsize + xoffset) / (2*PS_SC);
  896.         ymin_t = PS_YMAX * yoffset / (2*PS_SC);
  897.         ymax_t = PS_YMAX * (yoffset + ysize) / (2*PS_SC);
  898.     }
  899.     else if (ps_portrait)
  900.     {
  901.         term->xmax = PS_YMAX;
  902.         term->ymax = PS_XMAX;
  903.         xmin_t = PS_YMAX * xoffset / PS_SC;
  904.         xmax_t = PS_YMAX * (xsize + xoffset) / PS_SC;
  905.         ymin_t = PS_XMAX * yoffset / PS_SC;
  906.         ymax_t = PS_XMAX * (ysize + yoffset) / PS_SC;
  907.     }
  908.     else
  909.     {
  910.         term->xmax = PS_XMAX;
  911.         term->ymax = PS_YMAX;
  912.         ymin_t = PS_XMAX * xoffset / PS_SC;
  913.         ymax_t = PS_XMAX * (xsize+xoffset) / PS_SC;
  914.         xmin_t = PS_YMAX * (1-ysize-yoffset) / PS_SC;
  915.         xmax_t = PS_YMAX * (1-yoffset) / PS_SC;
  916.     }
  917.  
  918.     /* for enhanced postscript, copy ps_font to ps_enh_font
  919.      * does no harm for non-enhanced
  920.      */
  921.     strcpy(ps_enh_font, ps_font);
  922.     ps_enh_fontsize = ps_fontsize;
  923.     
  924.     PS_common_init(ps_eps, ps_portrait, 1, PS_XOFF, PS_YOFF,
  925.        xmin_t, ymin_t, xmax_t, ymax_t,
  926.        (term->put_text == ENHPS_put_text) ? ENHPS_header : NULL);
  927. }
  928.  
  929.  
  930. TERM_PUBLIC void PS_graphics()
  931. {
  932. static char GPFAR psg1[] = "0 setgray\nnewpath\n";
  933. struct termentry *t = term;
  934.     ps_page++;
  935.     if (!ps_common_encap)
  936.         fprintf(gpoutfile,"%%%%Page: %d %d\n",ps_page,ps_page);
  937.     fprintf(gpoutfile,"gnudict begin\ngsave\n");
  938.     fprintf(gpoutfile,"%d %d translate\n",ps_common_xoff, ps_common_yoff);
  939.     fprintf(gpoutfile,"%.3f %.3f scale\n", (ps_eps ? 0.5 : 1.0)/PS_SC,
  940.                                          (ps_eps ? 0.5 : 1.0)/PS_SC);
  941.     if (!ps_common_portrait) {
  942.         fprintf(gpoutfile,"90 rotate\n0 %d translate\n", (int)(-PS_YMAX));
  943.     }
  944.     fprintf(gpoutfile, psg1);
  945.     if (ps_common_uses_fonts)
  946.         fprintf(gpoutfile, "(%s) findfont %d scalefont setfont\n", ps_font, (t->v_char) );
  947.     ps_path_count = 0;
  948.     PS_relative_ok = FALSE;
  949.     PS_pen_x = PS_pen_y = -4000;
  950.     PS_taken = 0;
  951.     PS_linetype_last = -1;
  952. }
  953.  
  954.  
  955. TERM_PUBLIC void PS_text()
  956. {
  957.     ps_path_count = 0;
  958.     fprintf(gpoutfile,"stroke\ngrestore\nend\nshowpage\n");
  959.     /* fprintf(stderr,"taken %d times\n",PS_taken); */
  960.     /* informational:  tells how many times it was "cheaper"
  961.        to do a relative moveto or lineto rather than an
  962.        absolute one */
  963. }
  964.  
  965.  
  966. TERM_PUBLIC void PS_reset()
  967. {
  968.     fprintf(gpoutfile,"%%%%Trailer\n");
  969.  
  970. /*      I think the following commands should be executed 
  971.         `if (ps_common_uses_fonts)`. So I changed the next line. 
  972.         Please see "PS_RememberFont", too.                       */  /* JFi */
  973.  
  974. /*    if (!ps_common_uses_fonts) {  */                             /* JFi */
  975.     if (ps_common_uses_fonts) {
  976.         fprintf(gpoutfile,"%%%%DocumentFonts: ");
  977.         while (PS_DocFonts) {
  978.             struct PS_FontName *fnp;
  979.             fnp = PS_DocFonts->next;
  980.             fprintf(gpoutfile, "%s%s", PS_DocFonts->name, fnp ? " " : "\n");
  981.             free(PS_DocFonts->name);
  982.             free(PS_DocFonts);
  983.             PS_DocFonts=fnp;
  984.         }
  985.     }
  986.     if (!ps_common_encap)
  987.         fprintf(gpoutfile,"%%%%Pages: %d\n",ps_page);
  988. }
  989.  
  990.  
  991. TERM_PUBLIC void PS_linetype(linetype)
  992. int linetype;
  993. {
  994.     linetype = (linetype % 9) + 2;
  995.     if (linetype < 0) linetype = 0;
  996.     PS_relative_ok = FALSE;
  997. #if 0
  998.     /*  In order to make 'PS_linewidth' work properly, I need to comment
  999.      *  this line out.  Especially in combination with the line width
  1000.      *  extension of the `set arrow` command this is necessary.
  1001.      *  Can we live with that drawback?  (JFi)
  1002.      */
  1003.     if (PS_linetype_last == linetype) return;
  1004. #endif
  1005.     PS_linetype_last = linetype;
  1006.     fprintf(gpoutfile,"LT%c\n", "ba012345678"[linetype]);
  1007.     ps_path_count = 0;
  1008. }
  1009.  
  1010.  
  1011. TERM_PUBLIC void PS_linewidth (linewidth)
  1012. double linewidth;
  1013. {
  1014.         fprintf(gpoutfile,"%.3f UL\n",linewidth);
  1015.  
  1016. /*  
  1017.   Documentation of the 'change linewidth' strategy of the postscript terminal:
  1018.  
  1019.   1. define a new postscript variable with a default value:
  1020.      /userlinewidth gnulinewidth def
  1021.  
  1022.   2. define a new postscript command to change the contents of that variable:
  1023.      /UL { gnulinewidth mul /userlinewidth exch def } def
  1024.      usage:  multiplication_factor UL
  1025.  
  1026.   3. modify the already known postscript command /PL for the plot lines:
  1027.      /PL { stroke userlinewidth setlinewidth } def
  1028.  
  1029.   4. issue the new command before every change of the plot linestyle:
  1030.      example:
  1031.          4.0 UL
  1032.          LT0
  1033.      result:
  1034.          Linetype 0 is drawn four times as thick as defined by the contents
  1035.          of the postscript variable 'gnulinewidth'.
  1036. */
  1037. }
  1038.  
  1039.  
  1040. TERM_PUBLIC void PS_pointsize (ptsize)
  1041. double ptsize;
  1042. {
  1043.         fprintf(gpoutfile,"%.3f UP\n",ptsize);
  1044.  
  1045. /*  
  1046.   Documentation of the 'change pointsize' strategy of the postscript terminal:
  1047.  
  1048.   1. define two new postscript variables to hold the overall pointsize:
  1049.      /hpt_  and  /vpt_
  1050.  
  1051.   2. define a new postscript command to use the contents of these variables: 
  1052.      /UP { cf. definition above } def
  1053.      usage:  multiplication_factor UP
  1054.  
  1055.  [3.] [doesn't exist, skip to next number]
  1056.  
  1057.   4. issue the new command whereever you change the symbols (and linetype):
  1058.      example:
  1059.          2.5 UP
  1060.          4.0 UL  % optionally change linewidth, too
  1061.          LT0
  1062.      result:
  1063.          Next symbols will be drawn 2.5 times as big as defined by the 
  1064.          GNUPLOT `set pointsize` command (= overall pointsize).
  1065. */
  1066. }
  1067.  
  1068.  
  1069. TERM_PUBLIC void PS_move(x,y)
  1070. unsigned int x,y;
  1071. {
  1072.     int dx, dy;
  1073.     /* Make this semi-dynamic and independent of architecture */
  1074.     char abso[5+2*INT_STR_LEN], rel[5+2*INT_STR_LEN];
  1075.     dx = x - PS_pen_x;
  1076.     dy = y - PS_pen_y;
  1077.     /* can't cancel all null moves--need a move after stroke'ing */
  1078.     if (dx==0 && dy==0 && PS_relative_ok)
  1079.         return;
  1080.     sprintf(abso, "%d %d M\n", x, y);
  1081.     sprintf(rel, "%d %d R\n", dx, dy);
  1082.     if (strlen(rel) < strlen(abso) && PS_relative_ok){
  1083.         fputs(rel, gpoutfile);
  1084.         PS_taken++;
  1085.     }else
  1086.         fputs(abso, gpoutfile);
  1087.     PS_relative_ok = TRUE;
  1088.     ps_path_count += 1;
  1089.  
  1090.     PS_pen_x = x;
  1091.     PS_pen_y = y;
  1092. }
  1093.  
  1094. TERM_PUBLIC void PS_vector(x,y)
  1095. unsigned int x,y;
  1096. {
  1097.     int dx, dy;
  1098.     char abso[5+2*INT_STR_LEN], rel[5+2*INT_STR_LEN];
  1099.     dx = x - PS_pen_x;
  1100.     dy = y - PS_pen_y;
  1101.     if (dx==0 && dy==0) return;
  1102.     sprintf(abso, "%d %d L\n", x, y);
  1103.     sprintf(rel, "%d %d V\n", dx, dy);
  1104.     if (strlen(rel) < strlen(abso) && PS_relative_ok){
  1105.         fputs(rel, gpoutfile);
  1106.         PS_taken++;
  1107.     }else
  1108.         fputs(abso, gpoutfile);
  1109.     PS_relative_ok = TRUE;
  1110.     ps_path_count += 1;
  1111.     PS_pen_x = x;
  1112.     PS_pen_y = y;
  1113.     if (ps_path_count >= 400) {
  1114.         fprintf(gpoutfile,"currentpoint stroke M\n");
  1115.         ps_path_count = 0;
  1116.     }
  1117. }
  1118.  
  1119.  
  1120. TERM_PUBLIC void PS_put_text(x,y,str)
  1121. unsigned int x, y;
  1122. char *str;
  1123. {
  1124. char ch;
  1125.     if (!strlen(str)) return;
  1126.     PS_move(x,y);
  1127.     if (ps_ang != 0)
  1128.         fprintf(gpoutfile,"currentpoint gsave translate %d rotate 0 0 M\n"
  1129.             ,ps_ang*90);
  1130.     putc('(',gpoutfile);
  1131.     ch = *str++;
  1132.     while(ch!='\0') {
  1133.         if ( (ch=='(') || (ch==')') || (ch=='\\') )
  1134.             putc('\\',gpoutfile);
  1135.         putc(ch,gpoutfile);
  1136.         ch = *str++;
  1137.     }
  1138.     switch(ps_justify) {
  1139.         case LEFT : fprintf(gpoutfile,") Lshow\n");
  1140.             break;
  1141.         case CENTRE : fprintf(gpoutfile,") Cshow\n");
  1142.             break;
  1143.         case RIGHT : fprintf(gpoutfile,") Rshow\n");
  1144.             break;
  1145.     }
  1146.     if (ps_ang != 0)
  1147.         fprintf(gpoutfile,"grestore\n");
  1148.     ps_path_count = 0;
  1149.     PS_relative_ok = FALSE;
  1150. }
  1151.  
  1152.  
  1153. TERM_PUBLIC int PS_text_angle(ang)
  1154. int ang;
  1155. {
  1156.     ps_ang=ang;
  1157.     return TRUE;
  1158. }
  1159.  
  1160.  
  1161. TERM_PUBLIC int PS_justify_text(mode)
  1162. enum JUSTIFY mode;
  1163. {
  1164.     ps_justify=mode;
  1165.     return TRUE;
  1166. }
  1167.  
  1168.  
  1169. TERM_PUBLIC int PS_set_font(font)  /* Entry font added by DJL */
  1170. char *font;
  1171. {
  1172. char name[32];
  1173. int  size,sep;
  1174.  
  1175.         sep=strcspn(font,",");
  1176.         strncpy(name,font,sep); name[sep]=NUL;
  1177.         size=ps_fontsize; sscanf (&(font[sep+1]),"%d",&size);
  1178.         fprintf(gpoutfile,"/%s findfont %d scalefont setfont\n",name,size*PS_SC);
  1179.         PS_RememberFont(name,1 );
  1180.         return TRUE;
  1181. }
  1182.  
  1183.  
  1184. /* postscript point routines */
  1185.  
  1186.  
  1187. TERM_PUBLIC void PS_point(x,y,number)
  1188. unsigned int x,y;
  1189. int number;
  1190. {
  1191. static char GPFAR * GPFAR pointFNS[] = {"Pnt",  "Pls",   "Crs",    "Star",
  1192.                            "Box",  "BoxF",  "Circle", "CircleF",
  1193.                            "TriU", "TriUF", "TriD",   "TriDF",
  1194.                            "Dia",  "DiaF",  "Pent",   "PentF",
  1195.                    "C0",   "C1",    "C2",     "C3",
  1196.                "C4",   "C5",    "C6",     "C7",
  1197.                      "C8",   "C9",    "C10",    "C11",
  1198.                "C12",  "C13",   "C14",    "C15",
  1199.                            "S0",   "S1",    "S2",     "S3",
  1200.                "S4",   "S5",    "S6",     "S7",
  1201.                            "S8",   "S9",    "S10",    "S11",
  1202.                "S12",  "S13",   "S14",    "S15",
  1203.                      "D0",   "D1",    "D2",     "D3",
  1204.                "D4",   "D5",    "D6",     "D7",
  1205.                "D8",   "D9",    "D10",    "D11",
  1206.                "D12",  "D13",   "D14",    "D15",
  1207.                            "BoxE", "CircE", "TriUE",  "TriDE",
  1208.                            "DiaE", "PentE", "BoxW",   "CircW",
  1209.                            "TriUW", "TriDW", "DiaW",  "PentW"
  1210. };
  1211.     if (number < 0)
  1212.         number = -1;        /* negative types are all 'dot' */
  1213.     else
  1214.         number %= sizeof(pointFNS)/sizeof(pointFNS[0]) -1;
  1215.     fprintf(gpoutfile,"%d %d %s\n", x, y, pointFNS[number+1]);
  1216.  
  1217.     PS_relative_ok = 0;
  1218.     ps_path_count = 0;
  1219.     PS_linetype_last = -1; /* force next linetype change */
  1220. }
  1221.  
  1222. TERM_PUBLIC void PS_fillbox(style, x1,y1,x2,y2)
  1223. int style;
  1224. unsigned int x1,y1,x2,y2;
  1225. {
  1226.     PS_FLUSH_PATH
  1227.  
  1228.     fprintf(gpoutfile, "%d %d %d %d BoxFill\n", x1,y1, x2,y2);
  1229.  
  1230.     PS_relative_ok = 0;
  1231.     PS_linetype_last = -1;
  1232. }
  1233.  
  1234.  
  1235. /* ENHPOST */
  1236.  
  1237.  
  1238. #ifdef DEBUG_ENHPS
  1239. #define ENHPS_DEBUG(x) printf x;
  1240. #else
  1241. #define ENHPS_DEBUG(x)
  1242. #endif
  1243.  
  1244.  
  1245. static TBOOLEAN ENHps_opened_string;  /* try to cut out empty ()'s */
  1246.  
  1247. /* used in determining height of processed text */
  1248.  
  1249. static float ENHps_max_height, ENHps_min_height;
  1250.  
  1251.  
  1252. /* process a bit of string, and return the last character used.
  1253.  * p is start of string
  1254.  * brace is TRUE to keep processing to }, FALSE for do one character
  1255.  * fontname & fontsize are obvious
  1256.  * base is the current baseline
  1257.  * widthflag is TRUE if the width of this should count,
  1258.  *              FALSE for zero width boxes
  1259.  * showflag is TRUE if this should be shown,
  1260.  *             FALSE if it should not be shown (like TeX \phantom)
  1261.  */
  1262.  
  1263. static char *ENHPS_recurse(p, brace, fontname, fontsize, base, widthflag, showflag)
  1264. char *p, *fontname;
  1265. TBOOLEAN brace, widthflag, showflag;
  1266. double fontsize, base;
  1267. {
  1268.  
  1269. /* close a postscript string if it has been opened */
  1270. #define ENHPS_FLUSH      \
  1271. {    if (ENHps_opened_string)  \
  1272.     {    fputs(")]\n", gpoutfile);   \
  1273.         ENHps_opened_string = FALSE; \
  1274.     }                         \
  1275. }
  1276.  
  1277. #define ENHPS_OPEN    \
  1278. {    if (!ENHps_opened_string) \
  1279.     { fprintf(gpoutfile, "[(%s) %.1f %.1f %s %s (",  \
  1280.           fontname, fontsize, base, \
  1281.            widthflag ? "true" : "false",  \
  1282.            showflag ? "true" : "false");  \
  1283.        ENHps_opened_string = TRUE; \
  1284.      }    \
  1285. }
  1286.  
  1287.     ENHPS_DEBUG(("RECURSE WITH [%p] \"%s\", %d %s %.1f %.1f %d %d\n", p, p, brace, fontname, fontsize, base, widthflag, showflag))
  1288.  
  1289.     /* Start each recursion with a clean string */
  1290.     ENHPS_FLUSH
  1291.  
  1292.     if (base + fontsize > ENHps_max_height)
  1293.     {    ENHps_max_height = base + fontsize;
  1294.         ENHPS_DEBUG(("Setting max height to %.1f\n", ENHps_max_height));
  1295.     }
  1296.  
  1297.     if (base < ENHps_min_height)
  1298.     {    ENHps_min_height = base;
  1299.         ENHPS_DEBUG(("Setting min height to %.1f\n", ENHps_min_height));
  1300.     }
  1301.  
  1302.     while (*p)
  1303.     {    float shift;
  1304.  
  1305.         switch (*p)
  1306.         {
  1307.             case '}'  :
  1308.                 /*{{{  deal with it*/
  1309.                 if (brace)
  1310.                     return (p);
  1311.                 
  1312.                 fprintf(stderr, "enhpost printer driver - spurious }\n");
  1313.                 break;
  1314.                 /*}}}*/
  1315.         
  1316.             case '_'  :
  1317.             case '^'  :
  1318.                 /*{{{  deal with super/sub script*/
  1319.                 
  1320.                 shift = (*p == '^') ? 0.5 : -0.3;
  1321.                 
  1322.                 ENHPS_FLUSH
  1323.                 
  1324.                 p = ENHPS_recurse(p+1, FALSE, fontname, fontsize*0.8, base+shift*fontsize, widthflag, showflag);
  1325.                 
  1326.                 break;
  1327.                 /*}}}*/
  1328.         
  1329.             case '{'  :
  1330.             {
  1331.                 char *savepos=NULL, save=0;
  1332.                 char *localfontname=fontname, ch;
  1333.                 int recode=1;
  1334.                 float f=fontsize;
  1335.  
  1336.                 /*{{{  recurse (possibly with a new font) */
  1337.                 
  1338.                 ENHPS_DEBUG(("Dealing with {\n"))
  1339.                 
  1340.                 if (*++p == '/')
  1341.                 {    /* then parse a fontname, optional fontsize */
  1342.                     while (*++p == ' ');
  1343.                     if (*p=='-')
  1344.                     {
  1345.                         recode=0;
  1346.                         while (*++p == ' ');
  1347.                     }
  1348.                     localfontname = p;
  1349.                     while ((ch = *p) > ' ' && ch != '=' && ch != '*')
  1350.                         ++p;
  1351.                     save = *(savepos=p);
  1352.                     if (ch == '=')
  1353.                     {
  1354.                         *p++ = '\0';                
  1355.                         /*{{{  get optional font size*/
  1356.                         ENHPS_DEBUG(("Calling strtod(\"%s\") ...", p))
  1357.                         f = (float)strtod(p, &p);
  1358.                         ENHPS_DEBUG(("Returned %.1f and \"%s\"\n", f, p))
  1359.                         
  1360.                         if (f)
  1361.                             f *= PS_SC;  /* remember the scaling */
  1362.                         else
  1363.                             f = fontsize;
  1364.                         
  1365.                         ENHPS_DEBUG(("Font size %.1f\n", f))
  1366.                         /*}}}*/
  1367.                     }
  1368.                     else if (ch == '*')
  1369.                     {
  1370.                         *p++ = '\0';                
  1371.                         /*{{{  get optional font size scale factor*/
  1372.                         ENHPS_DEBUG(("Calling strtod(\"%s\") ...", p))
  1373.                         f = (float)strtod(p, &p);
  1374.                         ENHPS_DEBUG(("Returned %.1f and \"%s\"\n", f, p))
  1375.                         
  1376.                         if (f)
  1377.                             f *= fontsize;  /* apply the scale factor */
  1378.                         else
  1379.                             f = fontsize;
  1380.                         
  1381.                         ENHPS_DEBUG(("Font size %.1f\n", f))
  1382.                         /*}}}*/
  1383.                     }
  1384.                     else
  1385.                     {
  1386.                         *p++ = '\0';
  1387.                         f = fontsize;
  1388.                     }                
  1389.                 
  1390.                     while (*p == ' ')
  1391.                         ++p;
  1392.                     if (*localfontname)
  1393.                     {
  1394.                         /* only allow RememberFont to re-encode it if no string active */
  1395.                         char *recodestring = PS_RememberFont(localfontname, recode && !ENHps_opened_string);
  1396.                         if (recode && recodestring)
  1397.                         {
  1398.                             ENHPS_FLUSH
  1399.                             fprintf(gpoutfile, "/%s %s", localfontname, recodestring);
  1400.                         }
  1401.                     }
  1402.                     else
  1403.                         localfontname = fontname;
  1404.                 }
  1405.                 /*}}}*/
  1406.                 
  1407.                 ENHPS_DEBUG(("Before recursing, we are at [%p] \"%s\"\n", p, p))
  1408.                 
  1409.                 p = ENHPS_recurse(p, TRUE, localfontname, f, base, widthflag, showflag);
  1410.                 
  1411.                 ENHPS_DEBUG(("BACK WITH \"%s\"\n", p));
  1412.                 
  1413.                 ENHPS_FLUSH
  1414.  
  1415.                 if (savepos)
  1416.                     /* restore overwritten character */
  1417.                     *savepos = save;
  1418.         
  1419.                 break;
  1420.             }
  1421.                 
  1422.             case '@' :
  1423.                 /*{{{  phantom box - prints next 'char', then restores currentpoint */
  1424.     
  1425.                 ENHPS_FLUSH
  1426.     
  1427.                 p = ENHPS_recurse(++p, FALSE, fontname, fontsize, base, FALSE, showflag);
  1428.                     
  1429.                 break;
  1430.                 /*}}}*/
  1431.         
  1432.             case '&' :
  1433.                 /*{{{  character skip - skips space equal to length of character(s) */
  1434.     
  1435.                 ENHPS_FLUSH
  1436.     
  1437.                 p = ENHPS_recurse(++p, FALSE, fontname, fontsize, base, widthflag, FALSE);
  1438.                     
  1439.                 break;
  1440.                 /*}}}*/
  1441.         
  1442.             case '('  :
  1443.             case ')'  :
  1444.                 /*{{{  an escape and print it */
  1445.                 /* special cases */
  1446.                 ENHPS_OPEN
  1447.                 fputc('\\', gpoutfile);
  1448.                 fputc(*p, gpoutfile);
  1449.                 break;
  1450.                 /*}}}*/
  1451.         
  1452.             case '\\'  :
  1453.                 /*{{{  is it an escape */
  1454.                 /* special cases */
  1455.                 
  1456.                 if (p[1]=='\\' || p[1]=='(' || p[1]==')')
  1457.                 {
  1458.                     ENHPS_OPEN
  1459.                     fputc('\\', gpoutfile);
  1460.                 }
  1461.                 else if (p[1] >= '0' && p[1] <= '7')
  1462.                 {
  1463.                     /* up to 3 octal digits */
  1464.                     ENHPS_OPEN
  1465.                     fputc('\\', gpoutfile);
  1466.                     fputc(p[1], gpoutfile);
  1467.                     ++p;
  1468.                     if (p[1] >= '0' && p[1] <= '7')
  1469.                     {
  1470.                         fputc(p[1], gpoutfile);
  1471.                         ++p;
  1472.                         if (p[1] >= '0' && p[1] <= '7')
  1473.                         {
  1474.                             fputc(p[1], gpoutfile);
  1475.                             ++p;
  1476.                         }
  1477.                     }
  1478.                     break;
  1479.                 }
  1480.     
  1481.                 ++p;
  1482.                 /* just go and print it (fall into the 'default' case) */
  1483.     
  1484.                 /*}}}*/
  1485.             default:
  1486.                 /*{{{  print it */
  1487.                 ENHPS_OPEN
  1488.     
  1489.                 fputc(*p, gpoutfile);
  1490.     
  1491.             /*}}}*/
  1492.  
  1493.         }
  1494.  
  1495.         /* like TeX, we only do one character in a recursion, unless it's
  1496.          * in braces
  1497.          */
  1498.  
  1499.         if (!brace)
  1500.         {
  1501.             ENHPS_FLUSH
  1502.             return(p);  /* the ++p in the outer copy will increment us */
  1503.         }
  1504.  
  1505.         if (*p) /* only not true if { not terminated, I think */
  1506.             ++p;    
  1507.     }
  1508.     ENHPS_FLUSH
  1509.     return p;
  1510. } 
  1511.  
  1512.  
  1513. /* a set-font routine for enhanced post : simply copies
  1514.  * the font into a global, or restores the globals
  1515.  * to the ps_font default
  1516.  */
  1517.  
  1518. TERM_PUBLIC int ENHPS_set_font(font)  /* Entry font added by DJL */
  1519. char *font;
  1520. {
  1521.     ENHPS_DEBUG(("ENHPS_set_font(\"%s\")\n", font));
  1522.  
  1523.     if (*font)
  1524.     {
  1525.         int sep=strcspn(font,",");
  1526.         strncpy(ps_enh_font,font,sep); ps_enh_font[sep]=NUL;
  1527.         ps_enh_fontsize=ps_fontsize; sscanf (font+sep+1,"%d",&ps_enh_fontsize);
  1528.         PS_RememberFont(ps_enh_font, 1);
  1529.     }
  1530.     else
  1531.     {
  1532.         /* return to defaults */
  1533.         strcpy(ps_enh_font, ps_font);
  1534.         ps_enh_fontsize = ps_fontsize;
  1535.     }
  1536.  
  1537.     return TRUE;
  1538. }
  1539.  
  1540. TERM_PUBLIC void ENHPS_put_text(x, y, str)
  1541. unsigned int x, y;
  1542. char *str;
  1543. {
  1544.     /* flush any pending graphics (all the XShow routines do this...) */
  1545.  
  1546.     if (!strlen(str))
  1547.         return;
  1548.  
  1549.     if (ps_path_count)
  1550.     {
  1551.         fputs(" stroke\n",gpoutfile);
  1552.         ps_path_count=0;
  1553.         PS_relative_ok=FALSE;
  1554.     }
  1555.  
  1556.     /* if there are no magic characters, we should just be able
  1557.      * punt the string to PS_put_text(), which will give shorter
  1558.      * ps output [eg tics and stuff rarely need extra processing],
  1559.      * but we need to make sure that the current font is the
  1560.      * default one before we can do that. {ie I tried it and it
  1561.      * used the wrong font !}
  1562.      * if (!strpbrk(str, "{}^_@&"))
  1563.      * {
  1564.      *   - do something to ensure default font is selected
  1565.      *   PS_put_text(x,y,str);
  1566.      *   return;
  1567.      * }
  1568.      */
  1569.  
  1570.         
  1571.     PS_move(x,y);
  1572.  
  1573.     if (ps_ang != 0)
  1574.         fprintf(gpoutfile,"currentpoint gsave translate %d rotate 0 0 moveto\n",
  1575.             ps_ang*90);
  1576.  
  1577.     fputs("[ ",gpoutfile);
  1578.  
  1579.     /* set up the globals */
  1580.     
  1581.     ENHps_opened_string = FALSE;
  1582.     ENHps_max_height = -1000;
  1583.     ENHps_min_height = 1000;
  1584.  
  1585.     /* Set the recursion going. We say to keep going until a
  1586.      * closing brace, but we don't really expect to find one.
  1587.      * If the return value is not the nul-terminator of the
  1588.      * string, that can only mean that we did find an unmatched
  1589.      * closing brace in the string. We increment past it (else
  1590.      * we get stuck in an infinite loop) and try again.
  1591.      *
  1592.      * ps_enh_font and ps_enh_fontsize are either set to the
  1593.      * the defaults set on option line, or have been set to
  1594.      * "font,size". That is to say, ps_font is used only
  1595.      * at startup and by ENHPS_set_font
  1596.      */
  1597.     while (*(str = ENHPS_recurse(str, TRUE, ps_enh_font,
  1598.                      (double)(ps_enh_fontsize*PS_SC),
  1599.                      0.0, TRUE, TRUE)))
  1600.     {
  1601.         ENHPS_FLUSH
  1602.  
  1603.         /* I think we can only get here if *str == '}' */
  1604.         if (*str == '}')
  1605.             fprintf(stderr, "enhpost printer driver - ignoring spurious }\n");
  1606.         else
  1607.             fprintf(stderr, "internal error in enhpost driver - *str=0x%x\n", *str);
  1608.  
  1609.         if (!*++str)
  1610.             break; /* end of string */
  1611.  
  1612.         /* else carry on and process the rest of the string */
  1613.     }
  1614.  
  1615.     ENHps_max_height += ENHps_min_height;
  1616.         
  1617.     fprintf(gpoutfile, "] %.1f ", -ENHps_max_height/3);
  1618.  
  1619.     switch(ps_justify)
  1620.     {
  1621.         case LEFT : fprintf(gpoutfile, "MLshow\n");
  1622.             break;
  1623.         case CENTRE : fprintf(gpoutfile, "MCshow\n");
  1624.             break;
  1625.         case RIGHT : fprintf(gpoutfile, "MRshow\n");
  1626.             break;
  1627.     }
  1628.  
  1629.     if (ps_ang != 0)
  1630.         fputs("grestore\n", gpoutfile);
  1631.     ps_path_count = 0;
  1632.     PS_relative_ok=FALSE;
  1633. }
  1634.  
  1635.  
  1636.  
  1637.  
  1638.  
  1639. #endif /* TERM_BODY */
  1640.  
  1641. #ifdef TERM_TABLE
  1642.  
  1643. TERM_TABLE_START(post_driver)
  1644.  
  1645.       "postscript",
  1646.       "PostScript graphics language [mode \042fontname\042 font_size]",
  1647.        PS_XMAX, PS_YMAX, PS_VCHAR, PS_HCHAR, 
  1648.        PS_VTIC, PS_HTIC, PS_options, PS_init, PS_reset, 
  1649.        PS_text, null_scale, PS_graphics, PS_move, PS_vector, 
  1650.        PS_linetype, PS_put_text, PS_text_angle, 
  1651.        PS_justify_text, PS_point, do_arrow, PS_set_font, PS_pointsize,
  1652.        0 /*flags*/, 0 /*suspend*/, 0 /*resume*/, PS_fillbox, PS_linewidth
  1653.  
  1654. TERM_TABLE_END(post_driver)
  1655.  
  1656. #undef LAST_TERM
  1657. #define LAST_TERM post_driver
  1658.  
  1659. #endif /* TERM_TABLE */
  1660.  
  1661. #endif /* TERM_PROTO_ONLY */
  1662.  
  1663. #ifdef TERM_HELP
  1664. START_HELP(post)
  1665. "1 postscript",
  1666. "?commands set terminal postscript",
  1667. "?set terminal postscript",
  1668. "?set term postscript",
  1669. "?terminal postscript",
  1670. "?term postscript",
  1671. "?postscript",
  1672. " Several options may be set in the `postscript` driver.",
  1673. "",
  1674. " Syntax:",
  1675. "       set terminal postscript {<mode>} {enhanced | noenhanced}",
  1676. "                               {color | monochrome} {solid | dashed}",
  1677. "                               {<duplexing>}",
  1678. "                               {\"<fontname>\"} {<fontsize>}",
  1679. "",
  1680. " where <mode> is `landscape`, `portrait`, `eps` or `default`;",
  1681. " `solid` draws all plots with solid lines, overriding any dashed patterns;",
  1682. " <duplexing> is `defaultplex`, `simplex` or `duplex` (\"duplexing\" in",
  1683. " PostScript is the ability of the printer to print on both sides of the same",
  1684. " page---don't set this if your printer can't do it);",
  1685. " `enhanced` activates the \"enhanced PostScript\" features (subscripts,",
  1686. " superscripts and mixed fonts);",
  1687. " `\"<fontname>\"` is the name of a valid PostScript font; and `<fontsize>` is",
  1688. " the size of the font in PostScript points.",
  1689. "",
  1690. " `default` mode sets all options to their defaults: `landscape`, `monochrome`,",
  1691. " `dashed`, `defaultplex`, `noenhanced`, \"Helvetica\" and 14pt.",
  1692. "  Default size of a PostScript plot is 10 inches wide and 7 inches high.",
  1693. "",
  1694. " `eps` mode generates EPS (Encapsulated PostScript) output, which is just",
  1695. " regular PostScript with some additional lines that allow the file to be",
  1696. " imported into a variety of other applications.  (The added lines are",
  1697. " PostScript comment lines, so the file may still be printed by itself.)  To",
  1698. " get EPS output, use the `eps` mode and make only one plot per file.  In `eps`",
  1699. " mode the whole plot, including the fonts, is reduced to half of the default",
  1700. " size.",
  1701. "",
  1702. " Examples:",
  1703. "       set terminal postscript default       # old postscript",
  1704. "       set terminal postscript enhanced      # old enhpost",
  1705. "       set terminal postscript landscape 22  # old psbig",
  1706. "       set terminal postscript eps 14        # old epsf1",
  1707. "       set terminal postscript eps 22        # old epsf2",
  1708. "       set size 0.7,1.4; set term post portrait color \"Times-Roman\" 14",
  1709. "",
  1710. " Linewidths and pointsizes may be changed with `set linestyle`.",
  1711. "",
  1712. " The `postscript` driver supports about 70 distinct pointtypes, selectable",
  1713. " through the `pointtype` option on `plot` and `set linestyle`.",
  1714. "",
  1715. " Several possibly useful files about `gnuplot`'s PostScript are included",
  1716. " in the /docs/ps subdirectory of the `gnuplot` distribution and at the",
  1717. " distribution sites.  These are \"ps_symbols.gpi\" (a `gnuplot` command file",
  1718. " that, when executed, creates the file \"ps_symbols.ps\" which shows all the",
  1719. " symbols available through the `postscript` terminal), \"ps_guide.ps\" (a",
  1720. " PostScript file that contains a summary of the enhanced syntax and a page",
  1721. " showing what the octal codes produce with text and symbol fonts) and",
  1722. " \"ps_file.doc\" (a text file that contains a discussion of the organization",
  1723. " of a PostScript file written by `gnuplot`).",
  1724. "", 
  1725. " A PostScript file is editable, so once `gnuplot` has created one, you are",
  1726. " free to modify it to your heart's desire.  See the \"editing postscript\"",
  1727. " section for some hints.",
  1728. "2 enhanced postscript",
  1729. "?commands set terminal postscript enhanced",
  1730. "?set terminal postscript enhanced",
  1731. "?set term postscript enhanced",
  1732. "?terminal postscript enhanced",
  1733. "?term postscript enhanced",
  1734. "?enhanced_postscript",
  1735. "@start table - first is interactive cleartext form",
  1736. "  Control      Examples        Explanation",
  1737. "   ^           a^x             superscript",
  1738. "   _           a_x             subscript",
  1739. "   @           @x or a@^b_c    phantom box (occupies no width)",
  1740. "   &           &{space}        inserts space of specified length",
  1741. "#\\begin{tabular}{|ccl|} \\hline",
  1742. "#\\multicolumn{3}{|c|}{Enhanced Text Control Codes} \\\\ \\hline",
  1743. "#Control & Examples & Explanation \\\\ \\hline",
  1744. "#\\verb~^~ & \\verb~a^x~ & superscript\\\\",
  1745. "#\\verb~_~ & \\verb~a_x~ & subscript\\\\",
  1746. "#\\verb~@~ & \\verb~@x or a@^b_c~ & phantom box (occupies no width)\\\\",
  1747. "#\\verb~&~ & \\verb~&{space}~ & inserts space of specified length\\\\",
  1748. "%c c l .",
  1749. "%.TE", /* ugly - doc2ms uses @ for column separator, but here we */
  1750. "%.TS", /* need @ in table, so end and restart the table ! */
  1751. "%center box tab ($) ;",
  1752. "%c c l .",
  1753. "%Control$Examples$Explanation",
  1754. "%_",
  1755. "%^$a^x$superscript",
  1756. "%\\&_$a\\&_x$subscript",
  1757. "% @ $ @x or a\\&@^b\\&_c$phantom box (occupies no width)",
  1758. "% & $ &{space}$inserts space of specified length",
  1759. "@end table",
  1760. "",
  1761. " Braces can be used to place multiple-character text where a single character",
  1762. " is expected (e.g., 2^{10}).  To change the font and/or size, use the full",
  1763. " form:  {/[fontname][=fontsize | *fontscale] text}.  Thus {/Symbol=20 G} is a",
  1764. " 20-point GAMMA) and {/*0.75 K} is a K at three-quarters of whatever fontsize",
  1765. " is currently in effect.  (The '/' character MUST be the first character after",
  1766. " the '{'.)",
  1767. "",
  1768. " If the encoding vector has been changed by `set encoding`, the default",
  1769. " encoding vector can be used instead by following the slash with a dash.  This",
  1770. " is unnecessary if you use the Symbol font, however---since /Symbol uses its",
  1771. " own encoding vector, `gnuplot` will not apply any other encoding vector to",
  1772. " it.",
  1773. "",
  1774. " The phantom box is useful for a@^b_c to align superscripts and subscripts",
  1775. " but does not work well for overwriting an accent on a letter.  (To do the",
  1776. " latter, it is much better to use `set encoding iso_8859_1` to change to the",
  1777. " ISO Latin-1 encoding vector, which contains a large variety of letters with",
  1778. " accents or other diacritical marks.)  Since the box is non-spacing, it is",
  1779. " sensible to put the shorter of the subscript or superscript in the box (that",
  1780. " is, after the @).",
  1781. "",
  1782. " Space equal in length to a string can be inserted using the '&' character.",
  1783. " Thus",
  1784. "         'abc&{def}ghi'",
  1785. " would produce",
  1786. "         'abc   ghi'.",
  1787. "",
  1788. " You can access special symbols numerically by specifying \\character-code (in",
  1789. " octal), e.g., {/Symbol \\245} is the symbol for infinity.",
  1790. "",
  1791. " You can escape control characters using \\, e.g.,  \\\\, \\{, and so on.",
  1792. "",
  1793. " But be aware that strings in double-quotes are parsed differently than those",
  1794. " enclosed in single-quotes.  The major difference is that backslashes may need",
  1795. " to be doubled when in double-quoted strings.",
  1796. "",
  1797. " Examples (these are hard to describe in words---try them!):",
  1798. "       set xlabel 'Time (10^6 {/Symbol m}s)'",
  1799. "       set title '{/Symbol=18 \\362@_{/=9.6 0}^{/=12 x}} \\",
  1800. "                  {/Helvetica e^{-{/Symbol m}^2/2} d}{/Symbol m}'",
  1801. "",
  1802. " The file \"ps_guide.ps\" in the /docs/ps subdirectory of the `gnuplot` source",
  1803. " distribution contains more examples of the enhanced syntax.",
  1804. "2 editing postscript",
  1805. "?commands set terminal postscript editing",
  1806. "?set terminal postscript editing",
  1807. "?set term postscript editing",
  1808. "?terminal postscript editing",
  1809. "?term postscript editing",
  1810. "?editing_postscript",
  1811. " The PostScript language is a very complex language---far too complex to",
  1812. " describe in any detail in this document.  Nevertheless there are some things",
  1813. " in a PostScript file written by `gnuplot` that can be changed without risk of",
  1814. " introducing fatal errors into the file.",
  1815. "",
  1816. " For example, the PostScript statement \"/Color true def\" (written into the",
  1817. " file in response to the command `set terminal postscript color`), may be",
  1818. " altered in an obvious way to generate a black-and-white version of a plot.",
  1819. " Similarly line colors, text colors, line weights and symbol sizes can also be",
  1820. " altered in straight-forward ways.  Text (titles and labels) can be edited to",
  1821. " correct misspellings or to change fonts.  Anything can be repositioned, and",
  1822. " of course anything can be added or deleted, but modifications such as these",
  1823. " may require deeper knowledge of the PostScript language.",
  1824. "",
  1825. " The organization of a PostScript file written by `gnuplot` is discussed in",
  1826. " the text file \"ps_file.doc\" in the /docs/ps subdirectory."
  1827. END_HELP(post)
  1828. #endif
  1829.  
  1830.